Gigarom 4/Mac Giga-ROM 4.0 - 1993.toast/FILES/HYP/R-S/Script Changer/card_2834.txt

Text File | 1989-02-26 | 29.8 KB | 1,387 lines

-- card: 2834 from stack: in
-- bmap block id: 3513
-- flags: 0000
-- background id: 2798
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=5 top=24 right=40 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pick a Stack
----- HyperTalk script -----
on mouseUp
  global stackname
  global totcard
  global totcardbut
  global totcardfld
  global totback
  global totbackbut
  global totbackfld
  global numcard
  global numcardbut
  global numcardfld
  global numback
  global numbackbut
  global numbackfld
  global ind
  global typewrite

  put the long name of this stack into tempname
  go stack the stack you wish to process
  set lockscreen to true

  put long name of this stack into stackname
  put the number of cards into totcard
  put the number of backgrounds into totback

  repeat with count = 1 to totcard
    go to card count
    put number of card buttons into item count of totcardbut
    put number of card fields  into item count of totcardfld
  end repeat

  repeat with count = 1 to  totback
    go to background count
    put number of background buttons into item count of totbackbut
    put number of background fields  into item count of totbackfld
  end repeat

  go tempname

  put stackname into card field "StackName"

  put           totback    into card field "Totback"
  put item 1 of totbackbut into card field "Totbackbut"
  put item 1 of totbackfld into card field "Totbackfld"

  put           totcard    into card field "Totcard"
  put item 1 of totcardbut into card field "Totcardbut"
  put item 1 of totcardfld into card field "Totcardfld"

  put 1 into numback
  put numback into card field "Numback"

  if item 1 of totbackbut = 0 then
    put 0     into numbackbut
  else
    put 1     into numbackbut
  end if
  put numbackbut into card field "Numbackbut"

  if item 1 of totbackfld = 0 then
    put 0     into numbackfld
  else
    put 1     into numbackfld
  end if
  put numbackfld into card field "Numbackfld"

  put 1 into numcard
  put numcard into card field "Numcard"

  if item 1 of totcardbut = 0 then
    put 0     into numcardbut
  else
    put 1     into numcardbut
  end if
  put numcardbut into card field "Numcardbut"

  if item 1 of totcardfld = 0 then
    put 0     into numcardfld
  else
    put 1     into numcardfld
  end if
  put numcardfld into card field "Numcardfld"

  put 1 into ind
  set the hilite of card button "Stack" to true
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to false

  put 2 into typewrite
  set the hilite of card button "appendbefore" to false
  set the hilite of card button "overwrite" to true
  set the hilite of card button "appendafter" to false


  set userlevel to 5
  show menubar
  hide message
  set lockscreen to false

end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=135 top=23 right=42 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: StackName


-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=152 top=112 right=337 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Script


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=232 top=44 right=63 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totback


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=468 top=45 right=64 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totcard


-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=5 top=110 right=125 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack
----- HyperTalk script -----
on mouseUp
  global ind
  put 1 into ind
  set the hilite of card button "Stack" to true
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to false
end mouseup


-- part 7 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=5 top=124 right=139 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Background
----- HyperTalk script -----
on mouseUp
  global ind
  put 2 into ind
  set the hilite of card button "Stack" to false
  set the hilite of card button "Background" to true
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to false
end mouseup


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=162 top=44 right=63 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Numback


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=44 right=54 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aa
----- HyperTalk script -----
on mousestilldown
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  if  numback < totback then
    add 1 to numback
    put numback into card field "Numback"
  end if

end mousestilldown

on mouseup
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  put item numback of totbackfld into card field "Totbackfld"
  if  item numback of totbackfld > 0 then
    put 1 into numbackfld
  else
    put 0 into numbackfld
  end if
  put numbackfld into card field "Numbackfld"

  put item numback of totbackbut into card field "Totbackbut"
  if  item numback of totbackbut > 0 then
    put 1 into numbackbut
  else
    put 0 into numbackbut
  end if
  put numbackbut into card field "Numbackbut"
end mouseup




-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=53 right=63 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bb
----- HyperTalk script -----
on mousestilldown
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  if numback > 1 then
    subtract 1 from numback
    put numback into card field "Numback"
  end if

end mousestilldown

on mouseup
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  put item numback of totbackfld into card field "Totbackfld"
  if  item numback of totbackfld > 0 then
    put 1 into numbackfld
  else
    put 0 into numbackfld
  end if
  put numbackfld into card field "Numbackfld"

  put item numback of totbackbut into card field "Totbackbut"
  if  item numback of totbackbut > 0 then
    put 1 into numbackbut
  else
    put 0 into numbackbut
  end if
  put numbackbut into card field "Numbackbut"
end mouseup



-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=395 top=45 right=64 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Numcard


-- part 17 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=5 top=166 right=181 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card
----- HyperTalk script -----
on mouseUp
  global ind
  put 5 into ind
  set the hilite of card button "Stack" to false
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to true
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to false
end mouseup


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=232 top=64 right=83 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totbackbut


-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=232 top=84 right=103 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totbackfld


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=468 top=85 right=104 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totcardfld


-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=468 top=65 right=84 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totcardbut


-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=162 top=64 right=83 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Numbackbut


-- part 26 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=163 top=84 right=103 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Numbackfld


-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=395 top=65 right=84 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Numcardbut


-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=395 top=85 right=104 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Numcardfld


-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=64 right=74 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aa
----- HyperTalk script -----
on mousestilldown
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  if  numbackbut < item numback of totbackbut then
    add 1 to numbackbut
    put numbackbut into card field "Numbackbut"
  end if

end mousestilldown




-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=73 right=83 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bb
----- HyperTalk script -----
on mousestilldown
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  if numbackbut > 1 then
    subtract 1 from numbackbut
    put numbackbut into card field "Numbackbut"
  end if

end mousestilldown




-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=84 right=94 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aa
----- HyperTalk script -----
on mousestilldown
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  if  numbackfld < item numback of totbackfld then
    add 1 to numbackfld
    put numbackfld into card field "Numbackfld"
  end if

end mousestilldown




-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=93 right=103 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bb
----- HyperTalk script -----
on mousestilldown
  global totback
  global totbackbut
  global totbackfld
  global numback
  global numbackbut
  global numbackfld

  if numbackfld > 1 then
    subtract 1 from numbackfld
    put numbackfld into card field "Numbackfld"
  end if

end mousestilldown




-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=45 right=55 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aa
----- HyperTalk script -----
on mousestilldown
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld

  if numcard < totcard then
    add 1 to numcard
    put numcard into card field "Numcard"
  end if

end mousestilldown

on mouseup
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld

  put item numcard of totcardfld into card field "Totcardfld"
  if  item numcard of totcardfld > 0 then
    put 1 into numcardfld
  else
    put 0 into numcardfld
  end if
  put numcardfld into card field "Numcardfld"

  put item numcard of totcardbut into card field "Totcardbut"
  if  item numcard of totcardbut > 0 then
    put 1 into numcardbut
  else
    put 0 into numcardbut
  end if
  put numcardbut into card field "Numcardbut"
end mouseup



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=54 right=64 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bb
----- HyperTalk script -----
on mousestilldown
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld

  if numcard > 1 then
    subtract 1 from numcard
    put numcard into card field "Numcard"
  end if

end mousestilldown

on mouseup
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld

  put item numcard of totcardfld into card field "Totcardfld"
  if  item numcard of totcardfld > 0 then
    put 1 into numcardfld
  else
    put 0 into numcardfld
  end if
  put numcardfld into card field "Numcardfld"

  put item numcard of totcardbut into card field "Totcardbut"
  if  item numcard of totcardbut > 0 then
    put 1 into numcardbut
  else
    put 0 into numcardbut
  end if
  put numcardbut into card field "Numcardbut"
end mouseup



-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=65 right=74 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aaa
----- HyperTalk script -----
on mousestilldown
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld


  if numcardbut < item numcard of totcardbut then
    add 1 to numcardbut
    put numcardbut into card field "Numcardbut"
  end if

end mousestilldown




-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=74 right=84 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bb
----- HyperTalk script -----
on mousestilldown
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld

  if numcardbut > 1 then
    subtract 1 from numcardbut
    put numcardbut into card field "Numcardbut"
  end if

end mousestilldown




-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=94 right=103 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: zz
----- HyperTalk script -----
on mousestilldown
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld

  if numcardfld > 1 then
    subtract 1 from numcardfld
    put numcardfld into card field "Numcardfld"
  end if

end mousestilldown




-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=383 top=85 right=95 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aa
----- HyperTalk script -----
on mousestilldown
  global totcard
  global totcardbut
  global totcardfld
  global numcard
  global numcardbut
  global numcardfld


  if numcardfld < item totcard of totcardfld then
    add 1 to numcardfld
    put numcardfld into card field "Numcardfld"
  end if

end mousestilldown




-- part 41 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=5 top=138 right=153 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Background Button
----- HyperTalk script -----
on mouseUp
  global ind
  put 3 into ind
  set the hilite of card button "Stack" to false
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to true
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to false
end mouseup


-- part 42 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=5 top=152 right=167 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Background Field
----- HyperTalk script -----
on mouseUp
  global ind
  put 4 into ind
  set the hilite of card button "Stack" to false
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to true
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to false
end mouseup


-- part 43 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=5 top=180 right=195 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Button
----- HyperTalk script -----
on mouseUp
  global ind
  put 6 into ind
  set the hilite of card button "Stack" to false
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to true
  set the hilite of card button "Card Field" to false
end mouseup


-- part 44 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=5 top=194 right=209 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Field
----- HyperTalk script -----
on mouseUp
  global ind
  put 7 into ind
  set the hilite of card button "Stack" to false
  set the hilite of card button "Background" to false
  set the hilite of card button "Background Button" to false
  set the hilite of card button "Background Field" to false
  set the hilite of card button "Card" to false
  set the hilite of card button "Card Button" to false
  set the hilite of card button "Card Field" to true
end mouseup


-- part 45 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=5 top=214 right=241 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Read Script
----- HyperTalk script -----
on mouseUp
  global stackname
  global totcard
  global totcardbut
  global totcardfld
  global totback
  global totbackbut
  global totbackfld
  global numcard
  global numcardbut
  global numcardfld
  global numback
  global numbackbut
  global numbackfld
  global ind
  global typewrite

  if ind = 3 and  numbackbut = 0 then
    Play "Boing" "E C"
    answer "No button in that Background!"
    exit mouseup
  end if

  if ind = 4 and  numbackfld = 0 then
    Play "Boing" "E C"
    answer "No Field in that Background!"
    exit mouseup
  end if

  if ind = 6 and  numcardbut = 0 then
    Play "Boing" "E C"
    answer "No button on that Card!"
    exit mouseup
  end if

  if ind = 7 and  numcardfld = 0 then
    Play "Boing" "E C"
    answer "No Field on that Card!"
    exit mouseup
  end if

  put the long name of this stack into tempname

  go stackname
  -- set lockscreen to true

  if ind = 1 then
    put script of this stack into tempScript
  else
    if ind = 2 then
      go background numback
      put script of background numback into tempScript
    else
      if ind = 3 then
        go background numback
        put script of background button numbackbut into tempScript
      else
        if ind = 4 then
          go background numback
          put script of background field numbackfld into tempScript
        else
          if ind = 5 then
            go card numcard
            put script of card numcard into tempScript
          else
            if ind = 6 then
              go card numcard
              put script of card button numcardbut into tempScript
            else
              go card numcard
              put script of card field numcardfld into tempScript
            end if
          end if
        end if
      end if
    end if
  end if

  if tempScript is empty then
    put "--       No Script      --" into tempScript
  end if
  put return after tempScript

  go tempname

  set userlevel to 5
  if typewrite = 1 then
    put tempScript before card field "Script"
  else
    if typewrite = 2 then
      put tempScript into card field "Script"
    else
      put tempScript after card field "Script"
    end if
  end if



  show menubar
  hide message
  set lockscreen to false
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=5 top=243 right=270 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write Script
----- HyperTalk script -----
on mouseUp
  global stackname
  global totcard
  global totcardbut
  global totcardfld
  global totback
  global totbackbut
  global totbackfld
  global numcard
  global numcardbut
  global numcardfld
  global numback
  global numbackbut
  global numbackfld
  global ind
  global typewrite

  put card field "Script" into tempScript

  if last character of tempScript <> return then
    put return after tempScript
  end if

  if  tempScript contains "No Script" then
    put empty into tempScript
  end if

  put the long name of this stack into tempname

  go stackname
  set lockscreen to true

  if ind = 1 then
    put "the script of this stack" into target2
  end if

  if ind = 2 then
    put "go background numback" into target1
    put "the script of background numback" into target2
  end if

  if ind = 3 then
    put "go background numback" into target1
    put "the script of background button numbackbut" into target2
  end if

  if ind = 4 then
    put "go background numback" into target1
    put "the script of background field numbackfld" into target2
  end if

  if ind = 5 then
    put "go card numcard" into target1
    put "the script of card numcard" into target2
  end if

  if ind = 6 then
    put "go card numcard" into target1
    put "the script of card button numcardbut" into target2
  end if

  if ind = 7 then
    put "go card numcard" into target1
    put "the script of card field numcardfld" into target2
  end if

  if ind <> 1 then
    do target1
  end if

  if typewrite = 1 then
    put "put" && target2 && "after tempScript" & return into orders1
    do orders1
  end if

  if typewrite = 3 then
    put "put" && target2 && "before tempScript" & return into orders1
    do orders1
  end if

  put "set" && target2 && "to tempScript" into orders2
  do orders2

  go tempname
  set userlevel to 5
  show menubar
  hide message
  set lockscreen to false

end mouseUp





-- part 47 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=6 top=294 right=309 bottom=24
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: appendbefore
----- HyperTalk script -----
on mouseUp
  global typewrite
  put 1 into typewrite
  set the hilite of card button "appendbefore" to true
  set the hilite of card button "overwrite" to false
  set the hilite of card button "appendafter" to false

end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=5 top=273 right=293 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear Script Buffer
----- HyperTalk script -----
on mouseUp
  put empty into card field "Script"
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=6 top=308 right=323 bottom=24
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: overwrite
----- HyperTalk script -----
on mouseUp
  global typewrite
  put 2 into typewrite
  set the hilite of card button "appendbefore" to false
  set the hilite of card button "overwrite" to true
  set the hilite of card button "appendafter" to false

end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=6 top=322 right=337 bottom=24
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: appendafter
----- HyperTalk script -----
on mouseUp
  global typewrite
  put 3 into typewrite
  set the hilite of card button "appendbefore" to false
  set the hilite of card button "overwrite" to false
  set the hilite of card button "appendafter" to true

end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=127 top=315 right=337 bottom=149
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go next
end mouseUp



-- part contents for card part 2
----- text -----
stack "HD40:Hypercard:Stacks Folder:Hyper Tools:Small tools:HyperZap v1.3"

-- part contents for card part 4
----- text -----
1

-- part contents for card part 5
----- text -----
3

-- part contents for card part 10
----- text -----
1

-- part contents for card part 14
----- text -----
2

-- part contents for card part 18
----- text -----
0

-- part contents for card part 19
----- text -----
0

-- part contents for card part 21
----- text -----
5

-- part contents for card part 20
----- text -----
2

-- part contents for card part 26
----- text -----
0

-- part contents for card part 27
----- text -----
1

-- part contents for card part 28
----- text -----
1

-- part contents for card part 25
----- text -----
0

-- part contents for card part 3
----- text -----
-- hello
on mouseUp
  put filename("STAK") into fname
  if fname is empty then exit mouseUp
  deprotect fname
  if the result is empty
  play harpsichord "ee c"
  then answer "HyperZap Has Removed The Password!" with "OK"
  else if the result is -44
  play boing
  flash 2
  then answer "I'm Sorry! Your Disk Is Locked!"
  else if the result is -49
  play boing
  flash 2
  then answer "I'm Sorry! This Stack Is In Use!"
  else answer "I'm Sorry! Unexpected File System Error: " & the result with "OK"
end mouseUp